﻿<Serializable()> _
Public Class Cliente
    Inherits Pessoa

    Private _dataCasamento As Nullable(Of Date)
    Public Overridable Property DataCasamento() As Nullable(Of Date)
        Get
            Return _dataCasamento
        End Get
        Set(ByVal value As Nullable(Of Date))
            _dataCasamento = value
        End Set
    End Property

    Private _medidas As String
    Public Overridable Property Medidas() As String
        Get
            Return _medidas
        End Get
        Set(ByVal value As String)
            _medidas = value
        End Set
    End Property

#Region "Negocio"

    Public Sub New()
        MyBase.New()
    End Sub

    Public Overridable Function Buscar(ByVal _id As Long) As Cliente

        Return MyBase.ClienteDao.Buscar(_id)

    End Function

    Public Overridable Function BuscarPorNome(ByVal _nome As String) As List(Of Cliente)

        Return MyBase.ClienteDao.BuscarPorNome(_nome)

    End Function

    Public Overridable Function BuscarPorRG(ByVal _rg As String) As List(Of Cliente)

        Return MyBase.ClienteDao.BuscarPorRG(_rg)

    End Function

    Public Overridable Function BuscarPorCPF(ByVal _cpf As String) As List(Of Cliente)

        Return MyBase.ClienteDao.BuscarPorCPF(_cpf)

    End Function


    Public Overridable Sub Salvar()
        MyBase.ClienteDao.Salvar(Me)
    End Sub

#End Region

End Class